home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
It's Legal
/
It's Legal.iso
/
lglcd.z
/
IVISION.SMM
< prev
next >
Wrap
INI File
|
1992-08-13
|
2KB
|
157 lines
[ver]
4
[sty]
~default.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
HP LaserJet III
[lang]
1
[desc]
Interest Vision DDE Macro: make a valid calculation, then select File-Export note/schedule-DDE transmit to copy data.
713736211
23
712356011
0
1
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[l1]
0
[pg]
1
23 0 0 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
[edoc]
<:#278,9360>
<:#278,9360>FUNCTION InterestVision()
id = DDEInitiate("IVISION", "TRANSMIT")
<:#278,9360> IF id = 0
<:#278,9360> go = FALSE
<:#278,9360> Exec("IVISION.EXE", 1)
<:#278,9360> FOR I = 1 to 10
id = DDEInitiate("IVISION", "TRANSMIT")
<:#278,9360> IF id <;> 0
<:#278,9360> go = TRUE
<:#278,9360> BREAK
<:#278,9360> ENDIF
<:#278,9360> NEXT
<:#278,9360> IF NOT go
<:#278,9360> Message("Could not initiate a conversation with Interest Vision!")
<:#278,9360> EXIT FUNCTION
<:#278,9360> ENDIF
<:#278,9360> ENDIF
DDEExecute(id, "CLIPBOARD")
<:#278,9360> Paste()
<:#278,9360> DDETerminate(id)
<:#278,9360>END FUNCTION
<:#278,9360>
>
[Embedded]
00001257
>
[macsum] 1
InterestVision 0 0 4 1
[macse]
14 InterestVision
0 8 "IVISION" "TRANSMIT"
13
8 1
6 1
5 0
18 0
11 00000399
5 0
8 2
0 22 "IVISION.EXE" 1
5 1
8 3
5 10
6 3
18 2
12 00000201
10 00000301
5 1
6 3
3 0
8 3
10 00000125
0 8 "IVISION" "TRANSMIT"
13
8 1
6 1
5 0
18 3
11 00000288
5 1
8 2
10 00000301
10 00000168
6 2
1 3
11 00000399
0 3 "Could not initiate a conversation with Interest Vision!"
6 0
15
9
0 11 "{1}" "CLIPBOARD"
2 155 1
0 9 "{1}"
6 0
15
9
00001282